home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PCMania 19
/
PCMania19.iso
/
Jogos em Flash
/
ESTRATEGIA
/
BATTLE_SHIPS.SWF
/
scripts
/
frame_57
/
DoAction.as
Wrap
Text File
|
2003-11-17
|
2KB
|
62 lines
op = "0";
c1 = "0";
c2 = "0";
c3 = "0";
c4 = "0";
c5 = "0";
c6 = "0";
pl1 = "1";
pl2 = "1";
pl3 = "1";
pl4 = "1";
pl5 = "1";
pl6 = "1";
pl7 = "0";
x = "0";
while(x < "20")
{
y = "0";
while(y < "20")
{
if("19" < eval("p" add x add "_" add y))
{
set("p" add x add "_" add y,eval("p" add x add "_" add y) - "10");
}
removeMovieClip("s" add x add "_" add y);
duplicateMovieClip("/b" add eval("p" add x add "_" add y),"s" add x add "_" add y,x + y * "20" + 16384);
setProperty("s" add x add "_" add y, _X, x * "15" + dx + "7.5");
setProperty("s" add x add "_" add y, _Y, y * "15" + dy + "7.5");
removeMovieClip("kk" add x add "_" add y);
if(eval("p" add x add "_" add y) < "9" and "0" < eval("p" add x add "_" add y))
{
set("pl" add eval("p" add x add "_" add y),"0");
pl7 += "1";
duplicateMovieClip("/b" add (eval("p" add x add "_" add y) + "10"),"kk" add x add "_" add y,x + y * "20" + "2000" + 16384);
setProperty("kk" add x add "_" add y, _X, x * "15" + dx + "7.5");
setProperty("kk" add x add "_" add y, _Y, y * "15" + dy + "7.5");
setProperty("kk" add x add "_" add y, _alpha, "20");
}
if("10" < eval("p" add x add "_" add y))
{
set("c" add (eval("p" add x add "_" add y) - "10"),eval("c" add (eval("p" add x add "_" add y) - "10")) + "1");
set("c" add (eval("p" add x add "_" add y) - "10") add "x",x);
set("c" add (eval("p" add x add "_" add y) - "10") add "y",y);
op = "1";
}
y += "1";
}
x += "1";
}
shipp = pl1 + pl2 + pl3 + pl4 + pl5 + pl6;
x = "1";
while(x < "7")
{
y = "0";
while(y < "7")
{
setProperty("/pv" add x add (y + "1"), _alpha, "50" + "50" * (y < eval("c" add x)));
y += "1";
}
x += "1";
}